library("BayesX")

# NOTE: 'input_filename' must be substituted by the filename of the boundary-file 
m <- read.bnd("'input_filename'")
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_f_district_spatial.res", map = m, plotvar = "pmean", regionvar = "district")
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_f_district_spatial.res", map = m, plotvar = "pcat95", regionvar = "district", legend = F, pcat = T)
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_f_district_spatial.res", map = m, plotvar = "pcat80", regionvar = "district", legend = F, pcat = T)
# NOTE: 'input_filename' must be substituted by the filename of the boundary-file 
m <- read.bnd("'input_filename'")
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_unionpop_f_district_spatial.res", map = m, plotvar = "pmean", regionvar = "district")
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_unionpop_f_district_spatial.res", map = m, plotvar = "pcat95", regionvar = "district", legend = F, pcat = T)
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_unionpop_f_district_spatial.res", map = m, plotvar = "pcat80", regionvar = "district", legend = F, pcat = T)
# NOTE: 'input_filename' must be substituted by the filename of the boundary-file 
m <- read.bnd("'input_filename'")
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_aapct_f_district_spatial.res", map = m, plotvar = "pmean", regionvar = "district")
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_aapct_f_district_spatial.res", map = m, plotvar = "pcat95", regionvar = "district", legend = F, pcat = T)
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_aapct_f_district_spatial.res", map = m, plotvar = "pcat80", regionvar = "district", legend = F, pcat = T)
# NOTE: 'input_filename' must be substituted by the filename of the boundary-file 
m <- read.bnd("'input_filename'")
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_urbanpct_f_district_spatial.res", map = m, plotvar = "pmean", regionvar = "district")
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_urbanpct_f_district_spatial.res", map = m, plotvar = "pcat95", regionvar = "district", legend = F, pcat = T)
drawmap(data = "/var/folders/p1/0_bpjw1104jdbqfjqfzsxt980000gn/T//RtmpbRejU4/bayesx/bayesx.estim_urbanpct_f_district_spatial.res", map = m, plotvar = "pcat80", regionvar = "district", legend = F, pcat = T)
